home *** CD-ROM | disk | FTP | other *** search
/ Regional Industry Buying Guide: Greater Florida / 2000 Regional Industry Buying Guide - Greater Florida.iso / cs2k / clients / classic / scripts.lib / SCITOR.SCR < prev    next >
Encoding:
Text File  |  1998-09-30  |  1.5 KB  |  74 lines
  1. !
  2. !  Copyright (c) 1998
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  SCITOR:
  9. !       Connect to SCITOR
  10. !       Success:  returns %Success
  11. !       Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "4.0.5"
  15. !-V
  16.  
  17. show "Connecting to Scitor";
  18. Tries = 3;
  19. MoreTries = 5;
  20. on cancel goto Return_Cancel;
  21. send "..." & %CR;
  22.  
  23. Wait_SCITOR:
  24.     if Tries = 0 goto SCITOR_Failure;
  25.     Tries = Tries - 1;
  26.     wait
  27.         "SITA NETWORK: "        goto Send_NUI,
  28.         %mdm_Failure            goto SCITOR_Failure
  29.     until 80;
  30.  
  31.     send "..." & %CR;
  32.     goto Wait_SCITOR;
  33.  
  34. Send_NUI:
  35.     show "Sending Scitor address...";
  36.     wait until 10;
  37.     send "NUI 19730001" & %CR;
  38.  
  39. Wait_Again:
  40.     if MoreTries = 0 goto SCITOR_Failure;
  41.     MoreTries = MoreTries - 1;
  42.  
  43.     wait
  44.         "Host Name:"                    goto Return_Success,
  45.         "SITA NETWORK: password"        goto Send_Password,
  46.         "SITA NETWORK: network"         goto Send_Identifier,
  47.         %mdm_Failure                    goto SCITOR_Failure
  48.     until 50;
  49.  
  50.     send %CR;
  51.     goto Wait_Again;
  52.  
  53. Send_Password:
  54.     show "Sending Scitor Password...";
  55.     wait until 10;
  56.     send "KHS9NE" & %CR;
  57.     goto Wait_Again;
  58.  
  59. Send_Identifier:
  60.     show "Sending SCITOR Identifier...";
  61.     wait until 10;
  62.     send "2111855" & %CR;
  63.     goto Wait_Again;
  64.  
  65. SCITOR_Failure:
  66.     define %FailureMsg = "Scitor not responding";
  67.     exit %Failure;
  68.  
  69. Return_Cancel:
  70.     exit %Cancel;
  71.  
  72. Return_Success:
  73.     exit %Success;
  74.